سلسلة كن أسدا للإيداع تقدم: 


الهجرة من الفيجوال بسيك 
إلى الفيجوال سي شارب 
والعڪس. 


خالہ السعد اني 


www.mobarmijoun.com 


arabic formation 


| 8٤ اا‎ 


تقديم 


بسم الله الرحمن الرحيم. 
عملية الهجرة بين لغات البرمجة آمر شائع عند اممبرمجين» وغالبا ما تتخذ هذه الهجرة طابعا تجاريا أو 


طابعا أكاد هيا أو طابعا نفسيا. 


امبرمجون الذين ينتقلون من لغة إلى آخرى لأسباب تجارية يبحثون عما يطلبه سوق البرمجيات وكلما 
وجدوا تدفق الطلبات نحو نوع معين من البرمجيات بحثوا عن التقنيات المستخدمة فيها وعن لغة 
البرمجة التي تتيح هذه التقنيات فيهاجرون إليها لكي يستخدموهاء كمثال على ذلك نجد أن ظهور 
نظام التشغيل آندرويد الخاص بالهواتف واللوحات الذكية وتزايد الطلبات على التطبيقات والألعاب 


ا مبرمجة لهذا النظام» دفعت ثلة من امبرمجين إلى التوجه نحو لغة الجافا أو السي بلس بلس وغيرها... 


أما الميرمجون الذين يهاجرون إلى لغة معينة لأسباب أكادهية ودراسيةء فهم يبحثون عن تنمية 
رصيدهم البرمجي وكلما تعرفوا على لغة برمجية جديدة زادت مداركهم ونمت معارفهم وصاروا أقدر 


واسعة تدفعه إلى ابتكار برامج جديدة مم يسبقه إليها أحد. 


النوع الثالث من الهجرة البرمجية الذي يحمل طابعا نفسياء على ما يلوح لي يكون بسبب عدم 
الارتياح إلى اللغة البرمجية الأولى» أو السعي إلى تجربة لغات أخرى لسد الهوس البرمجي الذي م 
يسلم منه أي مبرمج» هذا الهوس البرمجي هو سبب النظرة الدونية التي يرى بها المبرمج لغته الأولء 


فإذا كان يبرمج بإحدى لغات الدوت نيت وسمع بأن لغة الجافا أقوى وأفضل خامره الوسواس فيقرر 
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الهجرةء وإذا كان يبرمج بلغة الجافا وسمع بأن لغات الدوت نيت تساعد المستخدم على إنتاج برامج 
بسرعة وأنها تدعم التقارير والطباعة بشكل رائع يقشعر بدنه ويصرخ: يا جافا أنت طالق :) 

أحيانا تكون عملية الهجرة بين لغات برمجية تنتمي إلى نفس العائلة لتفوق إحدى هاته اللغات على 
قریناتها آو بسبب شهرتها وسمعتها. 

خلال كتابنا هذا بحول الله سنقوم بعرض أهم الفروق بين لغتي الفيجوال بسيك والسي شارب اللتان 
تنتميان إلى عائلة الدوت نيت» على أمل أن يجد كل مهاجر دليلا مقتضبا ومختصرا يخول له الرمجة 


بلغته الجديدة. 


هذا الكتاب موجه ممن يريد أن يتحول من لغة الفيجوال بسيك إلى لغة السي شارب والعكس» هو 


صالح للطرفين معا. 


ا 


ا 


arabic formation 


O ؛:۷3۲ا35|€5S الاعلان عن المتغيرات‎ 
O O O : C0۸53 الاعلان عن الثوابت 5ڄ1‎ 
O : 0K0۸ € ۸5 التعلیقات‎ 
O , 0 aa ۷€ أتواع البياتات‎ 
o :00€ 20۲5 الروابط‎ 
E O O , ۴|0W ٤٥07۸۲01 البنية الشرطية‎ 


SEE aaa aa A e Ea e SS if...else باستخدام‎ 
باستخدام فصل الحالات:‎ 
a Ra A TORE ROT aA a EGS aaa aE A Tea باستخدام المعامل الشرطي:‎ 


O :1005S البنية التكرارية‎ 


LO eni 
Lees 
LE 


8 
im 


EFF ا‎ 


arabic formation 


LS eA A SAR SAAS SAA باستخدام 0۲؟‎ 
LI ssa saan OAS a Saa SA ah باستخدام هل‎ 
2O00 ESRD SE E SR SES SE : wطناe باستخدام‎ 
AOU rass Sas : for ec باستخدام‎ 
yy باستخدام 00ع:‎ 
E O O , MetN0ds الوظائف‎ 
DD O إنشاء الوظائف:‎ 
2I SSS SSA Saa SEA استدعاء الوظائف:‎ 
DI SEES BD SE SB SE E SE E تمرير البرامترات:‎ 
E : 3۲۲3۷5 المصفوفات‎ 
E O O O O O O :S) ۲1٤) 1۲€5 التراكيب‎ 
O , Enumerati0nsS تıددعkı‎ 
E E GOES : Handling Excepti01S تıءانتس¥لا معالجة‎ 
E , Classes and 05j€٥أS الفئات والكائتات‎ 
EO this , Me 
o ,Inherita^C€ ةaخıرولا‎ 
A ,Interf2a°€S الواجهات‎ 


. 


arabic formation 


PE LP 


O O E O , ConstrUCÎO1S تIدıشkl‎ 
O RR oy , ۴۲0€ ۲)٥5 الخصائص‎ 
SIE E O O O O إنهاء الكائتات:‎ 
O :namespaCes ءleuۍا‎ a lجم‎ 
AO إظهار علبة الرسائل:‎ 
A , sta €5€ العتاصر الثابتة‎ 
AS eee an a a E SÎ E a Sasa Î : خاتمة‎ 


ا 


انا د 


arabic formation 


تبذۀ عن لغه السي شارب : 

كانت فكرة جيدة حينما قررت ميكروسوفت إصدار لغة برمجية جديدة تنتمي لعائلة لغة السيء لأن 
ذلك سيستهوي فئة عريضة من المبرمجين الذين يستخدمون لغات البرمجة: السي» السي بلس بلس 
والجافاء وهذا ما كان فعلاء فبمجرد ما أن أطلقت شركة ميكروسوفت آول إصدار من لغة السي شارب 


جذبت إليها الكثير من امبرمجين وهي حاليا تنافس أقوى لغات البرمجة. 


تم إصدار أول نسخة رسمية للغة السي شارب سنة 2002 ضمن إطار العمل 1.0 kإW0‏ ء۴۲۳ ومنذ 
ذلك الوقت واللغة تحقق نجاحا بسبب قوتها المستمدة من عائثلة السى» وبسبب سهولتها اطمستمدة 


من نطاق الدوت نيت» وبسبب الفئة العريضة التي تستهدفها. 


تاريخ لخة الفيجوال بسيك : 
الفيجوال بسيك دوت نيت لغة قوية جدا وسهلة الاستخدام» وهى تنتمى لعائلة لغات البسيك 1ئ8 
وھی اختصار Beginner's All-purpose Symbolic Code J‏ وستتفاجاً إن قلت لك بان تاريخ لغة 


البسيك التى تنتمى إليها لغتنا يعود إلى سنة 1963. 


تتميز لغة الفيجوال بسيك ببعدها عن التعقيدات وميلها نحو التبسيط من خلالها تستطيح إنشاء 
برامج ويندوز وبرامج مرتبطة بقواعد بيانات وصفحات الويب» وهي لغة عالية المستوى بعيدة كثيرا 


ف الاصطلاح عن لغة الآلة وقريبة جدا من اللغة الانجليزية. 


fe LN 
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ظهرت النسخ الأولى من الفيجوال بسيك سنة 1990 مع إصدار 1.0 ئه اس۷ الذي استمر إلى أن 
وصل إلى الفيجوال 6 ثم بدأ في الأفول والسقوط ومقابل ذلك بدأ الفيجوال بسيك دوت نيت في 
الشهرة والذيوع بين صفوف البرمجين بسبب سهولته المستنبطة من عائلة البسيك وبسبب قوته التي 


يستمدها من نطاق الفرهوورك. 


أيهما أفضل:؟ 
حسب تجربتى الشخصية فإننى سأتحدث عن اللغتين عمليا بعيدا عن المقارنات البرمجية التى قد لا 


تجني من ورائها طائلا. 
كانت بدايتي مع الفيجوال بسيك وکنت مستمتعا به ولا آزال» بسبب سهولته ووفرة مراجعه ودعمه 
الشديد لختلف أنواع المشاريع ابتداء من برامج الشاشة السوداء مامئ«هء» ومرورا بتطبيقات 


الويندوز وقواعد البيانات واطمواقع الديناميكية عبر تقنية أ٤8p.1ه.‏ 
ثم بعد ذلك تعرفت على لغة السي شارب وكنت خائفا منها لأنني لدغت سابقا من جحر لغة السي :) 


فعلا فمجرد مشاهدة اللامات !) و النقطة الفاصلة ؛ في شفرات السي شارب يجعلني أتخيل نفسي 
أنني آمام لغة السيء لكن معرفتي البسيطة بلغتي السي والجافا شجعتني على خوض غمار البرمجة 
بالسي شارب» فما إن بدآت في البرمجة بها حتى شككت في نفسي: آهذه هي السي شارب التي كنت 


آخافها؟ اذا تكذبين يا ميكروسوفت إنها ليست سوى الفيجوال بسيك وقمت بتغيير شكلها :) 


BE LION 


arabic formation 


بكل صدق» لا أجد فرقا بين لغة السي شارب ولغة الفيجوال بسيك» وأبرمج مشاريعي باللغتين معا 
بنفس الكفاءة والأداء» وتبقى مسألة الاختيار بين اللغتين مسألة رغبة وميول» فإن كنت آخي الكريم 
قد درست لغة تنتمي لعائلة لغة السي مثل الجافا والسي بلس بلس» فابداً بالسي شارب أولا ثم انتقل 
إلى الفيجوال بسيك إذا أحببت ذلك» وإن كنت قد درست لغة الفيجوال بسيك 6 أو الباسكال أو 
عندك دراية بلغة ۷84 المستخدمة في تطبيقات الأوفيس» فإنني أنصحك بالتوجه إلى لغة الفيجوال 


بسيك دوت نيت ثم انتقل إلى لغة السي شارب إذا أحببت ذلك. 
بعد هذه المقدمة» أستطيع الآن أن أبوح لك ببعض الاختلافات بين لغتى الفيجوال والسى شارب: 


لغة السى شارب هى لغة كائنية التوجه Oriented Object Progra” nig‏ بشکل کاملء والشفرة 
داما تكتب داخل الفئات» بينما تخول لنا لغة الفيجوال بسيك دوت نيت التعامل بكل حرية فهى 
لغة كائنية التوجه إذا أحببنا التعامل مع الفئات والكائنات وهي أيضا لغة إجرائية ۴۲٥٤١٤١۵۲۵1‏ إذا 


أحببنا التعامل مع es‏ اله والشفرات العادية. 


هذا بالإضافة إلى بعض المميزات التي قد توجد في لغة وتغيب في الأخرىء مثل إعادة تعريف الروابط 
Overloading‏ t0ام0P‏ وهو مدعوم في السي شارب بینما لا وجود له قي الفيجوال بسيك» ومثل 
نافذة إدخال القيم put Box‏ اhلمدعومة‏ ف الفيجوال يسيك والغر موجودة ف السى شارب إلا عبر 


برمجتها من الصفر. 


ق الختام أحب أن أشر إلى نقطة مهمة وإن شاء الله أكون صادقا فيها: تة فا ما ي اله 
۰٠ f 0%‏ چ مهمه ۰ 0 برد دسعی إ لر 


سواء استخدمت الفيجوال بسيك أو الفيجوال سى شارب وهذا بتوقف على مهاراتك وخبرتك الرمجية. 
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FPBE on 


قواعد الكتابة : 
في لغة الفيجوال بسيك حينما تقوم بالإعلان عن متغير معين فلست ملزما للانتباه إلى حالة الأحرف 


لأن ذلك ليس مهماء لكن في لغة السي شارب إحذر فحالة الأحرف مأخوذة بعين الاعتبار. 


VB.NET CODE 


Dim number As Integer 
Dim Number As Integer 'Error 


| CA.NET CODE 


int number; 
int Number; //No problem :) 


هذا بالإضافة إلى بعض القواعد اممشتركة بين اللغتين ف طريقة الإعلان عن الممتغيرات» بحيث لا يقبل أن 
تبدأً أسماء المتغيرات بأرقام أو برموز مع استثناءات قليلةء أو أن تكون أسماء المتغيرات منتمية إلى 
الكلمات اممحجوزة. 


f VB.NET CODE 1 


Dim 1number as Integer 'Error 
Dim $number as Integer 'Error 
Dim class as Integer "Error 


int 1number; //Error 


int $number; //Error 
int class;  //Error 


قيقيقيقفقفق ق ق hh‏ 


arabic formation 


PEE N 


الإعلان عن المتغيرات كع اطهآ۲ا۷a:‏ 
نستعمل المتغيرات لكي نخزن بعض البيانات في الذاكرة لنستعملها أثناء تنفيذ البرنامج eصنامںR‏ 
وكل متغير هملك اسما ميزه عن باقي الممتغيرات وهلك نوعا ءطرآ هة( لتحديد طبيعة القيمة المراد 


تخزينها فيه أهي رقمية آم نصية آم غير ذلك. 


VB.NET CODE 


Dim number As Integer 

Dim number2 As Integer = 15 
Dim name As String 

Dim name2 As String = "Ahmed" 


[C.NET CODE 


int number; 

int number2 = 15; 
string name; 

string name2 = "Ahmed"; 
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الإعلان عن الثوابت Cons) as‏ : 
الثوابت شبيهة جدا بالمتغيرات من حيث الدور ال منوط بهاء إلا أنها تختلف عنها في كون قيمة الثابت 


تتغير أبدا عند تنفيذ البرنامج وتبقى ثابتة دانيما. 


VB.NET CODE 


Const pi As Double = 3.14 
Const state As String = "Unknown" 


| CA.NET CODE 


const double pi=3.14; 
const string state = "Unknown"; 


التعليقات CoM Nets‏ , 
التعليقات هي عبارات نقوم بكتابتها في برامجنا ويتجاهلها المترجم 1۲م K٥‏ لأن دورها يكون فقط 


من أجل عنونة الكود لتسهيل قراءته أو لتدوين بعض املاحظات عليه من قبل اممبرمج. 


VB.NET CODE 1 


'This is a single - line comment 


'This is 
'a multi - line 
' Comment 
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//This is a single - line comment 
/*This is 
a multi - line 
Comment* / 
: Data ype أنواع البيانات‎ 


أنواع البيانات هي طبيعة القيم التي نريد تخزينها في المتغيرات أو الثوابت» توجد العديد من أنواع 


البيانات منها ماهو نص ع١‏ ذإاء وماهو رقمى ١إءع٠1١1‏ وماهو منطقى ١هء1ههط‏ وغبر ذلك. 


الفيجوال بسيك 

int Integer 

long Long 
byte Byte 
float Single 
double Double 
decimal Decimal 
DateTime Date 
string String 
char Char 
object Object 


SR. 


ا 


ا 


lm. 


arabic formation 


الروايبط ۲20۲5 0€ : 
الروابط أو المعاملات هي رموز نستخدمها لإجراء بعض العمليات مثل العمليات الحسابية» أو 


عمليات مقارنة القيم وغير ذلك. 


القوذ غير موجود لکن توجد دالة لحسابه 


int number; Dim number As Integer التساوي‎ 


number = 10; number = 10 


int number; Dim number As Integer 


number += 10; number += 10 


int number; Dim number As Integer 


number -= 10; number -= 10 


int number; Dim number As Integer 


number *= 10; number *= 10 


| mmm 
7 ۵ 

ف 
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int number; Dim number As Integer 


number /= 10; number /= 10 


int number; Dim number As Integer الاختزال الصحيح الطبيعي‎ 


number /= 10; number \= 10 


string name="Ahmed"; Dim name As String="Ahmed" دمج النصوص‎ 


name +=" is a teacher"; | name &=" is a teacher" 


رابط المعية (و) and‏ && 
رابط الاختيار (أو) Or‏ | 


الزيادة بواحد غیرموجود + Number+‏ 


التقصان بواحد غیرموجود Number--‏ 


ا 
Y‏ 
2 


lm 
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: Flow contro البتية الشرطية‎ 

نستخدم البنيات الشرطية من أجل التحقق من نتيجة شرط معين» وبناء على هذا التحقق ننفذ شفرة 
معينة دون أخرى. 

باستخدام e[ع...1f‏ 


VB.NET CODE 


If job = "Doctor" Then 
state = True 

Elself job = "Nurse" Then 
state = True 

Else 
state = False 

End If 


1 CANET CODE 


if (job == "Doctor") 
{ 


} 


else if (job == "Nurse") 


{ 
} 


else 


{ 


state = true; 


state 


true; 


state = false; 


lm 


1 


١ 0 arabic formation 


باستخدام فصل الحالات: 


VB.NET CODE 


Select Case op 


Case "+ 
result 
Case "-" 
result 
CaS 
result 
Case "/" 
result 
Case Else 
result 


End Select 


switch (op) 


case '+': 
result 
break; 


CAS =5 


result 
break; 
Caê 
result 
break; 
Casê "7: 
result 
break; 


default: 


result 
break; 


} 
0| 


ا 


ا 
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باستخدام المعامل الشرطي: 
امعامل الشرطي يستخدم للقيام بعملية من بين عمليتين بعد تحقق شرط معين. 


VB.NET CODE 


Dim access_state As String = IIf(password = "pass123", "correct", 
"incorrect") 


string access_state=password=="pass123" ? " correct": "incorrect"; 


البتية التكرارية كمرهها: 


نستخدم البنية التكرارية لتكرار جزء معين من الشفرة عدة مرات. 


باستخدام 0۲]؟ : 


VB.NET CODE‏ گ 


For number As Integer = 0 To 9 
Console.WriteLine("Number : "& number) 
Next 


| CA.NET CODE 
18| 


E mmm | 


ا 


ا 
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for (int number = 0; number < 10; number++) 


} 


Console.WriteLine("Number : "+ number); 


: do باستخدام‎ 


VB.NET CODE 


Dim number As Integer = 0 

Do Until number > 5 
Console.WriteLine("Line:{0}", number) 
number += 1 

Loop 


int number = 0; 
do 
{ 


Console.WriteLine("Line:{0}", number); 
number++; 


while (number <= 5); 


19 


ا 
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: while باستخدام‎ 


VB.NET CODE 


Dim number As Integer = 0 

while number < 9 
Console.WriteLine("Line :{0}", number) 
number += 1 

End While 


int number = 0; 
while (number < 9) 


Console.WriteLine("Line :{0}", number); 
number++; 


: for each مIدختساب‎ 


VB.NET CODE 


Dim name As String = "Ahmed" 
For Each letter As Char In name 

Console.WriteLine(letter) 
Next 


| CA.NET CODE 
20| 


ا 


ا 
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string name = "Ahmed"; 
foreach (char letter in name) 


{ 
} 


Console.WriteLine(letter); 


:goto باستخدام‎ 


VB.NET CODE 


Dim founder As String 
ask: Console.Write("who is the founder of microsoft?") 

founder = Console.ReadLine() 

If founder = "bill gates" Then 
Console.Write("You're right") 

Else 
Console.WriteLine("False !!") 
GoTo ask 

End If 


string founder; 
ask: Console.Write("who is the founder of microsoft?"); 
founder = Console.ReadLine(); 


if (founder == "bill gates") 
{ 
Console.Write("You're right"); 
} 
else 
{ 
Console.WriteLine("False !!"); 
goto ask; 


} 
21| 
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قاش ن FFF‏ 


, Methods فئاlظۈځوgلıا‎ 


الوظيفة هي مجموعة من الأوامر المجمعة تحت اسم معين» وعند النداء عليها بهذا الاسم يتم 


VB.NET CODE 


'Create Procedure 
Public Sub myProc() 

'Do Something 
End Sub 


'Create Function 

Public Function myFunction() As String 
Return "Something" 

End Function 


//Create Procedure 
public void myProc() 


{ 
} 


//Create Function 
public string myFunction() 


{ 


//Do Something 


return "Something"; 


} 
22| 
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استدعاء الوظائف: 
VB.NET CODE‏ 
myProc ( )‏ 
Dim value As String = myFunction()‏ 
myProc();‏ 
string value = myFunction();‏ 
تهرير البرامترات: 


VB.NET CODE 


"passing parameters by value 
Public Function myFunction(ByVal a As Integer, ByVal b As 
Integer) As Integer 


Return a + b 
End Function 


'Calling the method 
Dim sum As Integer = myFunction(10, 35) 


//passing parameters by value 
public static int myFunction(int a, int b) 


{ 


return a+b; 


ققق ق ق ق 
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} 


//Calling the method 
int sum = myFunction(10,35); 


VB.NET CODE 


"passing parameters by reference 
Public Function myFunction(ByRef a As Integer, ByRef b As 
Integer) As Integer 


Return a + b 
End Function 
'Calling the method 


Dim x As Integer = 3, yJ As Integer = 9 
Dim sum As Integer = myFunction(x, ¥) 


//Passing by reference 
public static int myFunction(ref int a, ref int b) 


} 


//Calling the method 
int X = 3, J = 9; 
int sum = myFunction(ref x,ref y); 


return a+b; 


H0 ڂڭ دص‎ ٭٠‎ ۰٧١⁄ 
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المصفوفات Sك2¥١٣3۲‏ : 
المصفوفة هي مجموعة من المتغيرات التي تحتوي على نفس نوع البيانات. 


VB.NET CODE 
'Declaring and Poulating an array 


Dim colors() As String = New String() {"red", "green", "blue"} 
Dim numbers() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9} 


//Declaring and Poulating an array 
string[ ] colors = new string[ ] { "red", "green", "blue" }; 
int[ ] numbers = { 1, 2, 3, 4, 5», 6», 7, 8, 9 }; 


التراکیب s٣ uzا u ٣٥۶‏ , 
نستخدم التراكيب من أجل إنشاء أنواع مركبة قابلة لاحتواء أكثر من نوع بيانات» مثلا تستطيع حفظ 


وهكن للتركيب أن يضم كذلك وظائف وخصائص بالإضافة إلى الحقول. 


اا 0 0 ك 
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VB.NET CODE 


'Creating the structure 
Structure student 


Public name As String 
Public age As Integer 
Public address As String 


Public Function ShowStudent() As String 
Return "Student name:" & name _ 
& "Student age: " & age _ 
& "Student address: " & address 
End Function 
Structure 


'Creating a new instance of the student structure 
Dim student1 As New student 

'initialize fields 

student1.name = "Khalid" 

student1.age = "24" 

student1.address = "Morocco" 

"access to its methods 

student1. ShowStudent ( ) 


//creating the student structure 
struct student 
{ 

//Fields 

public string name; 

public int age; 

public string address; 


/ /Methods 


End 
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public string ShowStudent( ) 


{ 
return "Student name: " + name 
+ " Student age: " + age 
+ " Student address: " + address; 
} 


//Creating a new instance of the student structure 
student student1 = new student(); 

//initialize fields 

student1.name = "Khalid"; 

student1.age = 24; 

student1.address = "Morocco"; 

//access to its methods 

student1.ShowStudent() ; 


اkعدداٽة Enumerations‏ ,: 
نستخدم المعددات إذا کنا نرید تحديد قيم محددة لیتم تخزینها ي متغیر ماء مثلا حينما نريد حفظ 
أيام الأسبوع في برنامجناء فنحن نعلم مسبقا أن مجال أيام الأسبوع محدد والقيم معروفة لذلك همكننا 


استخدام المعددات. 


VB.NET CODE 1‏ ا 


'Creating the enumeration 
Enum WeekDays 

Monday 

Tuesday 

wednesday 

Thursday 
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Friday 

Saturday 

Sunday 
End Enum 


//Creating the enumeration 
enum WeekDays 


{ 
Monday, 


Tuesday, 
wednesday, 
Thursday, 
Friday, 
Saturday, 
Sunday 


معالجة الıسliùü‏ ءات Handling Exceptions‏ : 
الاستثناء ات هي أخطاء تحدث عند اشتغال البرنامج أي في مرحلة التنفيذ ”نادس ويكون ذلك 
لأسباب عديدةء من بينها إدخال قيمة غير مناسبةء كمحاولة تخزين قيمة نصية في متغير رقمي» أو 

محاولة القيام بعملية القسمة على صفرء أو محاولة حذف ملف غير موجود أساساء وغير ذلك... 
حينما يحدث استثناء في البرنامج فإنه يتوقف فورا عن الاشتغال» لذلك وجب إدارة هذه الأخطاء عبر 


.try...catch استخدام‎ 


VB.NET CODE 1‏ گ 


Dim age As Integer 


SR 
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Console.WriteLine("Enter your age:") 
Try 
age = Console.ReadLine 
Catch ex As Exception 
Console.WriteLine(Err.Description) 


Finally 
Console.WriteLine("press any key to leave...") 
End Try 
Console. ReadKey( ) 
int age; 
Console.Write("Enter your age:"); 
try 
{ 
age = int.Parse(Console.ReadLine()); 
} 
catch (Exception Err) 
{ 
Console.WriteLine(Err.Message); 
ٍ 
finally 
{ 
Console.WriteLine("press any key to leave..."); 
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الفئات والكائتنات كاbjec© Classes and‏ , 
الفئات هى أنواع نقوم بإنشائها من أجل تمثيل شامل لكائن معين» وهى شبيهة بالتراکیب ۲۲۵۴ی 
ما الكائنات فهي نسخ نقوم بإنشائها من فئة معينة لكي نستعملها في برنامجناء للإعلان عن الفئات في 


لغتى الفيجوال بسيك والسى شارب فإننا نستعمل الكلمة اممحجوزة ءيهاء. 


VB.NET CODE 


'Creating a class 
Public Class Car 

'Class members 
End Class 


'Creating new instance named 'object1' of Car class 
Dim object1 As New Car 


//Creating a class 
public class Car 


{ 
} 


//Creating new instance named 'object1' of Car class 
Car object1 = new Car(); 


//Class members 
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لى تتمكن من الدخول إلى عناضر الفئة الحالية؛ نستخدم الكلمة +5 ف الفيجوال بسيك و الكلمة 
نط في السي شارب» وهكننا الاستغناء عنهما وكتابة اسم العنصر مباشرة (المقصود بالعنصر حقول 
ووظائف وخصائص الفئة. 


VB.NET CODE 


Public Class Employee 
Private name As String 


Public Function Work() As String 
Return "I am a developer" 
End Function 


Public Sub initialize(Name As String) 
Me.name = Name 
Me.Work( ) 

End Sub 


End Class 


| CA.NET CODE 


public class Employee 


{ 


private string name; 


public string Work() 
{ 


} 


return "I am a developer"; 


public void initialize(string Name) 


SZ 
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this.name = Name; 
this.Work(); 


الوراژثãة Inheritance‏ : 
الوراثة هي عملية نقل عناصر فئة معينة تسمى الفئة الرئيسية ءئهاء «نه× إلى فئة أخرى أو أكثر 


وتسمى الفئة البنت أو الفئة اممشتقة ءءهاء ¡ved‏ م5. 


مثلا أستطيع أن أنشىء فئة أسميها 1ه««نص4ء ثم أشتق منها فئات أخرى (أسد نمر» ...)» ومجرد القيام 


بعملية الوراثة فإن عناصر الفئة الأم (الفئة 1٣نم4)‏ تنتقل إلى الفثات البنات. 


f VB.NET CODE 1 


'Main class 
Public Class Animal 
Private name As String 


Public Function getName() As String 
Return name 
End Function 
End Class 


"Derived Classes 
Public Class Lion 

Inherits Animal 
End Class 


arabic formation 
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Public Class Tiger 
Inherits Animal 
End Class 


Public Class Horse 
Inherits Animal 
End Class 


//Main class 
public class Animal 


ا 


private string name; 


public string getName( ) 
{ 


} 


return name; 


} 


//Derived Classes 

public class Lion:Animal 
{ 

} 


public class Tiger : Animal 
{ 
} 


public class Horse : Animal 
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lواجlkات Interfaces‏ : 
في لغتي الفيجوال بسيك والسي شارب لا يوجد مفهوم الوراثة المتعددة التي تمكننا من وراثة أكثر من 
فئة مرة واحدةء وتم استبدال هذا المفهوم بالواجهات ء١ءءه۴إ٠ادن»‏ وهي عبارة عن هيكل تقوم 
الفئات باستعماله بحيث لا تحتوي الواجهات على شفرة معينة وإنما تحتوي فقط على هيكل يضم 
تعريف لوظائف وخصائص وحقول من دون كود» وحينما تتم عملية استعمال هذه الواجهة من 
طرف فئة معينة نقوم بإعطاء محتوى لعناصرها. تسمى عملية استعمال الواجهات من طرف الفئات 


.implementation 


لإنشاء الواجهات نستخدم الكلمة اممحجوزة عءه؟إءام1: 


VB.NET CODE 1‏ گ 


"Defining ILocation interface 

Public Interface ILocation 
Sub setLocation(ByVal x As Integer, ByVal y As Integer) 
Function GetLocation_X() As Integer 
Function GetLocation_Y() As Integer 

End Interface 


'Implementing ILocation interface 
Public Class myForm 

Implements ILocation 

Private x, y As Integer 


Sub setLocation(ByVal X As Integer, ByVal Y As Integer) 
Implements ILocation.setLocation 
Me.x = X 
Me.y = Y 
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End Sub 


Function GetLocation_X() As Integer Implements 
ILocation.GetLocation_X 
Return xX 
End Function 


Function GetLocation_Y() As Integer Implements 
ILocation.GetLocation_Y 
Return Yy 
End Function 
End Class 


| CA.NET CODE 


//Defining ILocation interface 
public interface ILocation 
{ 
void setLocation(int x, int J); 
int GetLocation_X(); 
int GetLocation_Y(); 


} 


//Implementing ILocation interface 
public class myForm:ILocation 
{ 
private int X, Jy; 
void ILocation.setLocation(int X, int Y) 


1 


this.X 
this.y 


X; 
£ 


} 


int ILocation.GetLocation_X() 


} 


return Xj; 
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int ILocation.GetLocation_Y() 


{ 
} 


return Jy; 


المŞشيداٽت Constructors‏ , 
المشيد هو عبارة عن وظيفة خاصة لا تعيد لنا شيئا وليس لها نوع» ودروه يتجلى في إعداد الكائنات 


لتي سيتم استنساخها من الفئة كإعطاء قيم بدئية لحقول الكائن. 


VB.NET CODE 1‏ گ 


Public Class Employee 
Private name As String 
Private age As Integer 


"Constructor Without Parameters 
Sub New( ) 

Me.New("name not found", 0) 
End Sub 


"Constructor With Parameters 

Sub New(Name As String, Age As Integer) 
Me.name = Name 
Me.age = Age 

End Sub 


End Class 
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public class Employee 


{ 
private string name; 
private int age; 


//Constructor Without Parameters 


public Employee() 
: this("name not found", 0) { } 


//Constructor With Parameters 
public Employee(string Name, int Age) 
{ 

this.name = Name; 

this.age = Age; 


الخصائص Prope)! e5‏ ,: 
الخصائص عبارة عن وظائف نستخدمها للوصول إلى حقول الفئة الحالية من خلال فئات أخرى وكأن 


هذه الحقول معرفة ب عنااام. 


وهي تتكون من جزءين» جزء يسمح بقراءة قيمة الحقل ويسمى ١۴ء6»‏ وجزء يسمح بتعديل قمية 


الحقل ويسمى ١ع)ام؟.‏ 


VB.NET CODE 1‏ اگ 
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Public Class Employee 
Private name As String 
Private age As Integer 


Public Property name_property( ) 


Get 

Return Me.name 
End Get 
Set(value) 

Me.name = value 
End Set 


End Property 


Public Property age_property() 


Get 

Return Me.age 
End Get 
Set(value) 

Me.age = value 
End Set 


End Property 


End Class 


| CA.NET CODE 


public class Employee 


ا 


private string name; 
private int age; 


public string name_property 
{ 
get { return name; } 
set { name = value; } 
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public int age_property 


{ 
get { return age; } 
set { age = value; } 


إنهاء الكائتنات: 
نحتاج أحيانا إلى إنهاء الكائنات ووضع قيمة "لا شيء" فيها. 


VB.NET CODE 1 


Dim emp As New Employee 
emp = Nothing 


Employee emp=new Employee(); 
emp=null; 
namespaces ءlubا‎ aںlجم‎ 
لكي نقوم بجلب مجالات الأسماء فإننا نستخدم الكلمة sاإممص] في لغة الفيجوال بسيك» بينما‎ 


نستخدم الكلمة ع«ذین في لغة السي شارب. 


VB.NET CODE 
Imports System 


Imports System.Collections.Generic 
Imports System.Linq 


39 


ا 


ا 


١ 0 arabic formation 


Imports System. Text 
Imports System.Threading.Tasks 


using System; 

using System.Collections.Generic; 
using System.Linq; 

using System. Text; 

using System.Threading.Tasks; 


إظهار علبة الرسائل: 
لإظهار علبة الرسالة بالشكل التالي: 


VB.NET CODE 1‏ گ 


MsgBox ( "مںudl‎ pyle", MsgBoxStyle. Information, "ةlluر")‎ 


MessageBox. Show("pںudl‎ pSgle", "illu", MessageBoxButtons. OK, 
MessageBoxIcon. Information) ; 
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العتناصر الثابتة كmembe۲ static‏ : 
العناصر الثابتة هي عناصر لا هكن الوصول إليها من خلال الكائنات اممستنسخة من فئة معينةء وإنها 


نستطيع الوصول إليها مباشرة بعد كتابة اسم الفثة. 


VB.NET CODE 


Public Class Employee 
'static field 
Public Shared name As String 


'static method 

Public Shared Function getName ( ) 
Return name 

End Function 


End Class 


Sub Main() 

'use static members 

Employee.name = "khalid" 

Dim myName As String = Employee. getName 
End Sub 


| CA.NET CODE 


public class Employee 
{ 
//static field 
public static string name; 
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//static method 
public static string getName () 


{ 


return name; 


} 


static void Main(string[ ] args) 
{ 
//use static members 
Employee.name = "Khalid"; 
string myName = Employee. getName(); 
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خانمة : 

انتهينا بحمد الله من عرض أهم المفاهيم البرمجية بلغتي الفيجوال بسيك والسي شارب» ومع ذلك 
يبقى مجهودنا مجهودا محدودا يشوبه النقص بسبب عجز منا أو سهو وغفلةء لذلك سأمدكم ببريدي 
الالكتروني وبصفحتي على الفيسبوك وموقع أكادهية امبرمجين العرب» لكي ترشدوني إلى ما سهوت عنه 


لأضيفه في إصدار جديد» وأيضا لكي أستقبل أسئلتكم وأرد عليها ها علمني الله عز وجل. 


أدعو لكم بالتوفيق والسداد ودام لكم البشر والفرح والسلام عليكم ورحمة الله وبركاته. 


أكادهية المبرمجين العرب: 
http://www.mobarmijoun.com‏ 
البريد الالكتروني: 

Khalid ESSAADANI@Hotmail.fr 
ESSAADANIKHALID@ Gmail.com 
الفيسبوك:‎ 
www.facebook.com/ESSAADAN!I.Khalid 
www.facebook.com/Khotwa.Amam 
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